home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DOCZ16.ZIP;1 / DOCZ.LIF / CMDLINE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-24  |  1.2 KB  |  46 lines
  1. (*
  2. ******************************* DOCZ Header **********************************
  3. .MODULE                cmdline
  4. .LIBRARY             lib
  5. .TYPE                 function
  6. .APPLICATION        system
  7. .SYSTEM                msdos
  8. .AUTHOR                Software Toolz
  9. .LANGUAGE            Pascal
  10. .DESCRIPTION
  11.     Get the MSDOS command line
  12. .ARGUMENTS
  13.     function cmdline: string128;
  14. .NARRATIVE
  15.     The cmdline function returns the MSDOS command line that was passed to the
  16.     program.
  17. .RETURNS
  18.     The command line as a 128 character string
  19. .ENDOC                END DOCUMENTATION
  20. ******************************************************************************
  21. *)
  22. type
  23.     string128 = string[128];
  24.  
  25. function cmdline: string128;
  26. {    ***************************************************************************
  27.     get command from command line
  28.     ***************************************************************************
  29. }
  30. var
  31.     st       : string128;
  32.     buff      : string128 absolute cseg:$0080;
  33.  
  34. begin { cmdline }
  35.  
  36.     st := buff;
  37.     if length (st) > 0 then delete (st,1,1);      { first character is a space }
  38.     cmdline:=st;
  39.  
  40. end; { cmdline }
  41.  
  42. {    ***************************************************************************
  43.     end CMDLINE.PAS
  44.     ***************************************************************************
  45. }
  46.